
open(BUFF,"GenomeWideSNP_6.na29.annot.csv");
for($i=0;$i<23;$i++)
{
	$line=<BUFF>;
}
while($line=<BUFF>)
{
	chomp($line);
	$line =~ s/"//g;
	@array = split(',',$line);
	if(exists($hash{$array[1]}))
	{
		print $hash{$array[1]}."\n";
		$kk = join("\t", @array);
		print $kk."\n";
	}
	else
	{
		$hash{$array[1]}  = join("\t",@array);
	}
}
